home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir26 / epi601_2.zip / FILES06.EXE / DOMEAS.PAS < prev    next >
Pascal/Delphi Source File  |  1994-08-22  |  533b  |  24 lines
  1. {$N+,E+}    {Use numeric coprocessor if present; emulate if not}
  2. (*$M 8192,1024,1024*)
  3. Program DoMeas;
  4.  
  5.   Uses
  6.     Crt, Dos, EntFace, Measure;
  7.   Const
  8.     ProgName = 'DoMeas';  {Name of program being installed}
  9.  
  10.   Begin
  11.     If (InstallInterrupt (75, @MyDoScores) = 0)
  12.     Then
  13.       Begin
  14.         WriteLn (ProgName, ' program installed.');
  15.         SwapVectors;
  16.         Keep (0)
  17.       End (*If*)
  18.     Else
  19.       Begin
  20.         WriteLn (ProgName, ' already installed.');
  21.         Halt (1)
  22.       End (*Else*)
  23.   End.
  24.